Indietro
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("universitanew")
set rs=Server.Createobject("ADODB.Recordset")
rs.activeconnection=conn
id=request.querystring
sql="select * from Docenti where DO_ID=" & id
rs.open sql
CO_ID=rs("CO_ID")
DO_ORARIO_RICEVIMENTO=rs("DO_ORARIO_RICEVIMENTO")
DO_MEMO=rs("DO_MEMO")
%>
<%=rs("DO_COGNOME") & " " & rs("DO_NOME")%>
<%=rs("DO_MEMO")%>
<%
if len(rs("DO_TELEFONO"))>0 then
%>
Tel.
<%=rs("DO_TELEFONO")%>
<%
end if
%>
<%
if len(rs("DO_FAX"))>0 then
%>
Fax
<%=rs("DO_FAX")%>
<%
end if
%>
<%
if len(rs("DO_EMAIL"))>0 then
%>
e-mail
"><%=rs("DO_EMAIL")%>
<%
end if
%>
<%
if len(rs("DO_LINK_HOME_PAGE"))>0 then
%>
">
Home Page personale
<%
end if
%>
<%
sql="SELECT distinct MA_ID,MA_DES,MA_NUMERO_CREDITI,DU_DES " &_
" FROM ((Docenti LEFT JOIN Docenti_Materie ON Docenti.DO_ID = Docenti_Materie.DM_ID_DOCENTE) LEFT JOIN Materie ON Docenti_Materie.DM_ID_MATERIA = Materie.MA_ID) LEFT JOIN Durata ON Materie.MA_DURATA = Durata.DU_ID " &_
" WHERE (((Docenti.DO_ID)=" & rs("DO_ID") & ")) "
set rst=conn.execute(sql)
%>
<%
if not isnull(DO_ORARIO_RICEVIMENTO) and len(trim(DO_ORARIO_RICEVIMENTO))>0 then
%>
Orario di ricevimento:
<%=DO_ORARIO_RICEVIMENTO%>
<%
end if
%>
<%=DO_MEMO%>
<%
'--------------MATERIALE--------------
sql="SELECT * " &_
" FROM WN_Allegati INNER JOIN WN_CO_AL ON WN_Allegati.AL_ID = WN_CO_AL.CO_LI_Allegato " &_
" WHERE (((WN_CO_AL.CO_LI_Contenuto)=" & CO_ID & "))"
set rsa=conn.execute(sql)
%>
<%
if not(rsa.eof) then
%>
Materiale
<%
end if
'--------------MATERIALE--------------
%>
|